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FACILITY: MATH LIBRARY 
++ 


ABSTRACT: 
This module contains routine MTH$GNINT: 
Return the rounded G floating-point argument. 


; VERSION: 1 
HISTORY: 


AUTHOR: 
Steven B. Lionel, 26-Jan-1979: Version 1 


MODIFIED BY: 
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-SBTTL MTHSGNINT = return nearest integer as G REAL*8 


¥ FUNCTIONAL DESCRIPTION: 

Returns the rounded (away from zero) argument. 
; CALLING SEQUENCE: 

Nearest_integer.wg.v = MTHS$GNINT (arg.rg.r) 

; INPUT age hay 


he input pereseter is a G floating-point value 
ca is call-by-reference. 


; IMPLICIT INPUTS: 

; NONE 

; OUTPUT PARAMETERS: 
; NONE 

; IMPLICIT OUTPUTS: 
; NONE 

; COMPLETION CODES: 
; NONE 


; SIDE EFFECTS: 
; Reserved Operand and Floating Overflow exceptions can occur. 


-ENTRY MTHSGNINT, “M<R2, R3> 
BGTR 1 Sreneh if positive 
SUBG2 RO/R1 = arg - 0. 


#1.0, RO 
1$: EMODG RO, #0, #1, R2, R2 
SuBGe R2, RO 


: R2/R3 = fraction part (RO/R1) 
3 = integer_part(RO) 
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MTHSGNINT - Nearest Integer ak dt b+ 01339382 etary Macro V04-00 Page 
Symbol table 66-SEP-1984 11:23:56 CMTHRTL.SRCIMTHGNINT.MAR; 1 
| MTHSGNINT 00000000 RG 01 
| $eowmeecanecanensacae + 
| ! Psect synopsis ! 
| $ocrowt ew eer ner ocscesase + 

PSECT name Allocation PSECT No. Attributes 

° me 00000000 <( 0. 99 ( 0.) NOPIC USR CON ABS ~ LCL NOSHR NOZXE NORD NOWRT NOVEC BYTE 
_MTHSCODE QOOOOOIA ( 26.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

SO eee mem meee me aman oem a + 
! Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization — 29 00:00:00.07 00:00:01.10 

Command processing 116 00:00:00.55 00:00:02.70 

Pass 76 00:00:00.38 00:00:01.35 

Symbol table sort 0 eS 4 00:00:00.00 

ass 2 37 80:60:00" 00:00:01.29 

Symbol table output 2 00:00:00.01 00:00:00.01 

Psect synopsis output 3 00:00:00.02 00:00:00.02 

Cross-reference output 00:00:00.00 00:00:00.00 

Assembler run totals 264 00:00:01.36 00:00:06.47 

The working set Limit was 900 pages. 

1386 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 1 non-local and 1 local symbols. 

134 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 

Uitte nema menaese 


Macro Library name 


-5255$DUA28: CSYSLIBISTARLET.MLB; 2 0 

0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/D1I SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:MTHGNINT/OBJ=OBJ$:MTHGNINT MSRC$:MTHGNINT/UPDATE=(ENH$ :MTHGNINT ) 
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